home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 54 / 054.d81 / star nibbler (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.3 KB  |  38 lines
  1. 10 a=a+1:ifa=1 thenload"nibbler.o",8,1
  2. 12 :
  3. 20 poke808,225:poke657,128
  4. 30 poke49655,16:poke49329,8:poke53280,.:poke53281,.
  5. 40 print"[147][158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  6. 41 forx=1to22
  7. 42 print" [221]                                    [221]"
  8. 43 next
  9. 44 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  10. 48 print"          [159][204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]"
  11. 49 print"           [160][152][164][164][164][164][164][164][164][164][164][164][164][164]"
  12. 50 print"            [211][212][193][210][160][206][201][194][194][204][197][210]"
  13. 51 print"           [160][152][163][163][163][163][163][163][163][163][163][163][163][163]"
  14. 52 print"         [154]by [203]evin [210]eifenberg"
  15. 53 print"[150]    [208][210][197][211][211][160][210][197][212][213][210][206][150][160][212][207][160][211][212][193][210][212] [195][207][208][217][201][206][199]"
  16. 54 print"        [207][210] [208][210][197][211][211][160][209][150][160][212][207][160][210][197][212][213][210][206]":print"             [212][207] [204][207][193][196][211][212][193][210]"
  17. 55 geta$:ifa$<>"[209]"anda$<>"q"anda$<>chr$(13)then55
  18. 56 ifa$="q"ora$="[209]"then 2000
  19. 57 print"[147]"chr$(142)"            star nibbler
  20. 58 [153]"           closeprint#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  21. 59 print"[152]note :[154] write protect your source disk"
  22. 60 restore:b=820:forz=0to35:readv:pokeb+z,v:next:sys49152
  23. 70 k=56576:t=peek(k)
  24. 80 ifpeek(k)=t then80
  25. 160 close 8:close15:poke53265,27
  26. 165 open15,8,15,"uj":fork=1to3000:next:close15
  27. 170 print"[147][154]   [195][207][208][217][160][195][207][205][208][204][197][212][197] - [208][210][197][211][211] [211][208][193][195][197][160][194][193][210][144]"
  28. 180 get z$:ifz$<>" "then180
  29. 200 goto 12
  30. 210 data 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23
  31. 220 data 24,25,26,27,28,29,30,31,32,33,34,35,0
  32. 2000 poke808,237:open15,8,15,"uj":fork=0to3000:next
  33. 2001 print#15,"r0:hello connect=hello connect":input#15,er:close15:
  34. 2002 ifer<>63 then print"[147]":end
  35. 2003 print"[144][147]p[207]55,.:p[207]56,160:load"chr$(34)"hello connect"chr$(34)",8,1"
  36. 2004 poke631,19:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13:poke198,6
  37. 2005 new
  38.